object Form1: TForm1 Left = 16 Top = 30 Width = 587 Height = 418 Caption = 'Uses JPSTAMP.DBF' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 OnCreate = FormCreate TextHeight = 13 object Gauge1: TGauge Left = 306 Top = 8 Width = 22 Height = 19 Kind = gkPie ShowText = False BorderStyle = bsNone ForeColor = clRed BackColor = clBtnFace Progress = 0 end object Label1: TLabel Left = 384 Top = 81 Width = 28 Height = 13 Caption = 'Width' end object Label2: TLabel Left = 384 Top = 103 Width = 31 Height = 13 Caption = 'Height' end object Label3: TLabel Left = 384 Top = 124 Width = 60 Height = 13 Caption = 'Bits per Pixel' end object Label4: TLabel Left = 384 Top = 147 Width = 32 Height = 13 Caption = 'Planes' end object Label5: TLabel Left = 384 Top = 170 Width = 29 Height = 13 Caption = 'Colors' end object Label6: TLabel Left = 384 Top = 190 Width = 68 Height = 13 Caption = 'Compression' end object Label7: TLabel Left = 384 Top = 213 Width = 44 Height = 13 Caption = 'Blob Size' end object DBNavigator1: TDBNavigator Left = 10 Top = 242 Width = 331 Height = 25 DataSource = DataSource1 TabOrder = 0 end object TDBMultiImage1: TDBMultiImage Left = 10 Top = 35 Width = 331 Height = 208 Hint = 'Double click to view picture' JPegDither = 4 JPegResolution = 8 JPegSaveQuality = 25 JPegSaveSmooth = 0 UPdateBlobAsJpeg = False DataField = 'BLOBIMAGE' DataSource = DataSource1 TabOrder = 1 end object AutodisplayCheckBox: TCheckBox Left = 16 Top = 10 Width = 73 Height = 17 Caption = 'Autodisplay' TabOrder = 2 OnClick = AutodisplayCheckBoxClick end object DBEdit1: TDBEdit Left = 349 Top = 56 Width = 213 Height = 20 DataField = 'TEXT1' DataSource = DataSource1 MaxLength = 0 TabOrder = 3 end object StretchCheckBox: TCheckBox Left = 94 Top = 10 Width = 61 Height = 17 Caption = 'Stretch it' TabOrder = 4 OnClick = StretchCheckBoxClick end object GroupBox1: TGroupBox Left = 348 Top = 260 Width = 97 Height = 123 Caption = 'Jpeg Resolution' Color = clBtnFace Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 7 object RadioButton1: TRadioButton Left = 8 Top = 20 Width = 80 Height = 17 Caption = '16 Colors' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = ResolutionClick end object RadioButton2: TRadioButton Left = 8 Top = 56 Width = 76 Height = 17 Caption = '256 Colors' Checked = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 TabStop = True OnClick = ResolutionClick end object RadioButton3: TRadioButton Left = 9 Top = 92 Width = 80 Height = 17 Hint = '(Should have true color VGA Card)' Caption = 'True Color' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ResolutionClick end end object CenterCheckBox: TCheckBox Left = 164 Top = 8 Width = 73 Height = 19 Caption = 'Center it' State = cbChecked TabOrder = 8 OnClick = CenterCheckBoxClick end object Edit1: TEdit Left = 349 Top = 35 Width = 213 Height = 20 Color = clFuchsia Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 12 end object Edit2: TEdit Left = 452 Top = 78 Width = 110 Height = 20 Color = clYellow Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 14 end object Edit3: TEdit Left = 452 Top = 100 Width = 110 Height = 20 Color = clYellow Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 15 end object Edit4: TEdit Left = 452 Top = 122 Width = 110 Height = 20 Color = clYellow Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 16 end object Edit5: TEdit Left = 452 Top = 144 Width = 110 Height = 20 Color = clYellow Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 17 end object Edit6: TEdit Left = 452 Top = 166 Width = 110 Height = 20 Color = clYellow Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 18 end object Edit7: TEdit Left = 452 Top = 188 Width = 110 Height = 20 Color = clYellow Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 19 end object Edit8: TEdit Left = 452 Top = 210 Width = 110 Height = 20 Color = clTeal Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 20 end object GroupBox2: TGroupBox Left = 451 Top = 260 Width = 112 Height = 54 Caption = 'Blob Update To' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 21 object RadioButton4: TRadioButton Left = 8 Top = 15 Width = 80 Height = 17 Caption = 'A Jpeg Blob' Checked = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = True OnClick = RadioButton4Click end object RadioButton5: TRadioButton Left = 8 Top = 35 Width = 80 Height = 17 Caption = 'A BMP Blob' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = RadioButton4Click end end object GroupBox3: TGroupBox Left = 452 Top = 314 Width = 112 Height = 69 Caption = 'Jpeg Update Options' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 24 object Label8: TLabel Left = 8 Top = 18 Width = 32 Height = 13 Caption = 'Quality' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 8 Top = 44 Width = 36 Height = 13 Caption = 'Smooth' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpinEdit1: TSpinEdit Left = 56 Top = 16 Width = 45 Height = 22 Hint = 'Jpg update quality factor (0..100)' Color = clNavy Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxValue = 100 MinValue = 0 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Value = 0 OnChange = SpinEdit1Change end object SpinEdit2: TSpinEdit Left = 56 Top = 42 Width = 45 Height = 22 Hint = 'Jpg update Smoothing factor (0..100)' Color = clNavy Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxValue = 100 MinValue = 0 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 Value = 0 OnChange = SpinEdit2Change end end object BitBtn9: TBitBtn Left = 422 Top = 3 Width = 58 Height = 25 Caption = 'Print' TabOrder = 25 OnClick = BitBtn9Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 Spacing = 0 end object BitBtn10: TBitBtn Left = 486 Top = 3 Width = 75 Height = 25 Caption = 'Print Size' TabOrder = 26 OnClick = BitBtn10Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F7F3333333333333000333333333333F777333333333333 000333333333333F777333333333333000333333333333F77733333333333300 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3 33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773 3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703 33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773 333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333 333333773FF77333333333370007333333333333777333333333} NumGlyphs = 2 Spacing = 0 end object BitBtn1: TBitBtn Left = 9 Top = 290 Width = 168 Height = 25 Caption = 'Replace Blob from file' TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005 555555777777777FF5555500000000805555557777777777FF555550BBBBB008 05555557F5FFF7777FF55550B000B030805555F7F777F7F777F550000000B033 005557777777F7F5775550BBBBB00033055557F5FFF777F57F5550B000B08033 055557F77757F7F57F5550BBBBB08033055557F55557F7F57F5550BBBBB00033 055557FFFFF777F57F5550000000703305555777777757F57F555550FFF77033 05555557FFFFF7FF7F55550000000003055555777777777F7F55550777777700 05555575FF5555777F55555003B3B3B00555555775FF55577FF55555500B3B3B 005555555775FFFF77F5555555700000005555555557777777550000} Layout = blGlyphRight NumGlyphs = 2 Style = bsNew end object BitBtn2: TBitBtn Left = 9 Top = 266 Width = 168 Height = 25 Caption = 'Save blob to file as stored' TabOrder = 6 OnClick = BitBtn2Click NumGlyphs = 2 Style = bsNew end object BitBtn4: TBitBtn Left = 176 Top = 290 Width = 165 Height = 25 Caption = 'Save Blob to ClipBoard' TabOrder = 9 OnClick = BitBtn4Click Glyph.Data = { 56070000424D5607000000000000360400002800000028000000140000000100 0800000000002003000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF 0303030303030303030000000000000000000003030303030303030303F8F8F8 F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303 0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303 0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF 03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03 FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303 F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF 0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03 0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303 F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF 0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303 0303030300FF070707070707FF0003030303030303030303F8FF030303030303 03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303 F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303 0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303 030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8 0303030303030303030303030303030303030303030303030303030303030303 0303030303030303030303030303030303030303030303030303030303030303 0303030303030303030303030303030303030303030303030303} NumGlyphs = 2 end object BitBtn5: TBitBtn Left = 176 Top = 266 Width = 165 Height = 25 Caption = 'Past Blob from clipboard' Enabled = False TabOrder = 10 OnClick = BitBtn5Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0 FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999 93337777FF777777733370000000073333333777777773333333} Layout = blGlyphRight NumGlyphs = 2 end object BitBtn6: TBitBtn Left = 9 Top = 314 Width = 168 Height = 24 Caption = 'Append Blob from file' TabOrder = 11 OnClick = BitBtn6Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 end object BitBtn7: TBitBtn Left = 176 Top = 314 Width = 165 Height = 24 Caption = 'Save to file as BMP' TabOrder = 22 OnClick = BitBtn7Click end object BitBtn8: TBitBtn Left = 176 Top = 337 Width = 165 Height = 23 Caption = 'Save to file as Jpeg' TabOrder = 23 OnClick = BitBtn8Click end object BitBtn12: TBitBtn Left = 176 Top = 359 Width = 165 Height = 24 Caption = 'About ImageLib' TabOrder = 28 OnClick = BitBtn12Click end object BitBtn11: TBitBtn Left = 9 Top = 337 Width = 168 Height = 23 Caption = 'Enlarge' TabOrder = 27 OnClick = BitBtn11Click Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFFFFF333FFFFF3330000000033300000333377777777F337777 7FF330EFEFEF03307333703337F3FFFF7F37733377F330F4444E033333333033 37F777737F333333F7F33099999903333330703337F333337F33333777FF309F FFF903333330000337F333337F33333777733099999903333330003337F3FF3F 7F333337773330F44E0003333330033337F7737773333337733330EFEF003333 3330333337FFFF7733333337333330000003333333333333377777733333FFFF FFFF3333333333300000000333333F3333377777777F333303333330EFEFEF03 33337F333337F3FFFF7F333003333330F4444E0333377F333337F777737F3300 03333330EFEFEF0333777F333337F3FFFF7F300003333330F4444E0337777F33 3337F777737F330703333330EFEFEF03337773333337F3FF3F7F330333333330 F44E0003337FF333FF37F7737773330733370330EFEF00333377FFF77337FFFF 7733333000003330000003333337777733377777733333333333333333333333 33333333333333333333} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 9 Top = 359 Width = 168 Height = 24 Caption = 'Open Table' TabOrder = 13 OnClick = BitBtn3Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC C8807FF7777777777FF700000000000000007777777777777777333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object Table1: TTable Left = 309 Top = 40 end object DataSource1: TDataSource DataSet = Table1 OnDataChange = DataSource1DataChange Left = 280 Top = 40 end object OpenDialog1: TOpenDialog Filter = 'All Images|*.jpg;*.gif;*.pcx;*.bmp|BMP Images|*.bmp|GIF Images|*' + '.gif|PCX Images|*.pcx|JPG Images|*.jpg' Left = 280 Top = 67 end object SaveDialog1: TSaveDialog Options = [ofOverwritePrompt] Left = 251 Top = 67 end object Timer1: TTimer OnTimer = Timer1Timer Left = 309 Top = 67 end object OpenDialog2: TOpenDialog Filter = 'sample dbf|JPSTAMP.DBF' Left = 251 Top = 40 end object SaveDialog2: TSaveDialog DefaultExt = 'JPG' Filter = 'Jpeg files|*.JPG' Left = 251 Top = 94 end object PrintDialog1: TPrintDialog Left = 280 Top = 94 end end